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RTITL 


- “Or E_PROT = Set file protection’ 
MODULE LIB 


BSSET_FIL 
SSET_FILE PROT ( ! Set file protec 
pe ! File: 
= 


tion 
AT = 'v04-000' LIBFILPRO.B32 Edit: 1-001 


jofejlolqo) 
oOo 

oO 

ewn— 


BEGIN 


lee RRR REAR AAA AAA AAAAAE AA AEAAAA AREA AAT KATA AERA AKER AAA eeAAAeeeeARe eee 
'® ® 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ‘ 
ie ALL RIGHTS RESERVED. . 
if tr 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
it ONLY IN ACCORDANCE W T F CENSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. * 
a 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
it AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
it CORPORATION. e 
RB 
® 
* 
® 
® 
® 


'® DIGITAL ASSUMES NO RESPONSI 
'® SOFTWARE ON EQUIPMENT WHICH 
i 
| pedeocooswoeqnsnenseensonboceensessensneensnsoreeweevenessaenqnesneosoonese 
i 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IL 
IS NOT SUPPLIED BY DIGITAL. 


'e4 
FACILITY: General Utility Library 


ABSTRACT: 
This routine sets the file protection of a file. 


ee ew eee leo fofololololololololelololololo le leololelolq! 


AUTHOR: Martin L. Jack, CREATION DATE: 23-Dec-1981 
MODIFIED BY: 
1-001 - Original from LIBACP.B32. MLJ 23-Dec-1981 
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i 
i 
i 
i 
: ENVIRONMENT: Runs at any access mode - AST reentrant 
i 
i 
i 
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LIBSSET_FILE_PR LIBSSET_FILE_PROT = Set file protection 16*$ 
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3 rt 47 1 XSBTTL ‘Declarations’ 

: « 48 1! 

a ‘3 1 | SWITCHES: 

: 1 2% : : 

: Hi SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 

: 55 054 1! 

6 055 | LINKAGES: 

: 58 2$ 1 LINKAGE 

; 39 38 LINKAGE_JSB_2_2 = JSB(REGISTER=0;REGISTER=1,REGISTER=2); 

>: 61 0060 1 ! TABLE OF CONTENTS: 

8g bogs 1: 

> 64 Goes 1 FORWARD ROUTINE 

; 663 064 1 LIBSSET_FILE_PROT; ! Set file protection 

; 8 gos. 1 | 

: 68 bos? 1 ' INCLUDE FILES: 

Ray! 

: 4 9070 1 LIBRARY 'SYSS$LIBRARY:L1B'; ' System symbols 

: 7 BR6 1 !®! REQUIRE "RTLIN:RTLPSECT'; ! Define PSECT declarations macros 

fe bore 1! 

: 2 0075 | MACROS: 

BT mone 

; 80 0079 1 | EQUATED SYMBOLS: 

: Bl 0080 1! 

; 8 0081 NONE 

; 84 0088 1 | FIELDS: 

>: 85 0084 1 | 

: 8S SoBe 1 | _ 

; 88 08 | PSECTS: 

: 3 et ' ie! DECLARE PSECTS (LIB); ! Declare PSECTs for LIBS facility 
= 091 1 CODE = _LIBSCODE (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING_MODE (WORD_RELATIVE)), 
: ba $o98 OUN, = “LIBSDATA (READ, URITE CROEXECUTE, AOSHARE, BIC OARORESCERC MODE CONG RELATE UES) 
. = 

> 95 009% 1 GLOBAL = _LI@SDATA (READ, WRITE, NOEXECUTE, NOSHARE, PIC, ADDRESSIRG_MODE (LONG_RELATIVES) ; 
; 3 096 1 | OWN STORAGE: 

; 98 097 1 | 

: 100 $99 1 i ane 

> 101 100 1 | EXTERNAL REFERENCES: 

ie my 

> 104 1 : 1 EXTERNAL ROUTINE 


LIBSSET_FILE_PR LIBSSET FILE_PROT = Set file protection 
vou-0007 , 


5 
abel f- 300-1 3h 96: 98: 34 VMSLIB SREIL LI ige Yee 8088251 dont (23 


1 
1 
YZE_SDESC_R2: LINKAGE ~/S8. 2 ; one ¥sq descriptor 
. i 
i 


: 105 1 LIBSANALYZ 

. F 198 1 LIBSFREE EF Déallocate an event 

7 196 1 LIBSGET_EF Allocate an event flag 

; 108 10 SYSSSETDFPROT; Read/set defeutt. file protection 
3 6110 199 1 EXTERNAL LITERAL ! centgt ipe status codes 

2 i 110 1 LIBS_INVARG ' Invalid —_ ent 

3 le a 3 LIBS~INVFILSPE; ! Invalid fi @ specification 


file protection. Bits of 
the file protection corresponding to set bits in 
enable-mask are set to the value of the correspordin 
bit of the value-mask parameter. This is an optiona 
parameter. The default is the current process default 
file protection. 


ACTUAL _MASK Address of a word that receives the file protection 
value actually set. This is an optional output ~ 
parameter. It is guaranteed to be stored only if the 
routine value is true. 


The format of ENABLE_MASK, VALUE_MASK, and ACTUAL_MASK is: 
1111711 
5432109876543210 
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ye 000 LIBSSET_FILE_PROT = Set file protection 12786871388 96:60:38 VMSLIB’SREIL16F ILPRO.B 4251 
; (114 112 1 ZSBTTL "LIBSSET_FILE_PROT - Set file protection’ 
3 319 18 1 GLOBAL ROUTINE CIeSSET FILE _PROT ( , ! Set file protection 
3 118 114 1 FILE SPEC ! File specification string 
: 11 115 1 ENABCE_MASK, i Mask of bits to be changed 
: 118 118 1 VALUE_MASK, ' Mask of bit values 
3; 13 i: 6 ACTUAC_MASK ! Mask actually set 
: 159 194. 
: 1 é 120 1 !++ 
: : ? + 1 : FUNCTIONAL DESCRIPTION: 
; ! 2 3 5 } This routine sets the file protection of a file. 
; f oi 5 CALLING SEQUENCE: 
; 129 01 5 1 Pan POIs wet = LIBSSET_FILE_PROT (file-spe ig Pee 
: } , 3 8 ' enable-mask.rwu.rl, Cvalue-mask.rwu.rJ, Cactual-mask.wwu.rJ) 
; 13¢ 0 Q 1 | FORMAL PARAMETERS: 
; 134 01 3 1 FILE_SPEC Address of a descriptor for the file specification. 
3 13? 01 1 This string is a standard RMS file specification; it 
; 136 0134 1 must not contain a node name nor wild card characters; 
; 157 biz 1 it must rereronas a disk device. The string must be 
: 13 b138 ! no longer than 255 characters. 
$140 Biss 1 ENABLE _MASK Address of a word containing a mask to ogres ty the bits 
3 (141 0139 1 of the file protection to be modified. Bits of the 
3 136 0140 1 file protection corresponding to set bits in 
s 14 0141 1 enable-mask are set to the value of the corresponding 
3 144 Spe: 1 bit of the value-mask parameter; bits of the file 
3 6145 01435 1 protection corresponding to clear bits in enable-mask 
: 178 pie : are not modified. This is an optional parameter. The 
; 148 0146 changing all bits of the file protection. 
; 150 0148 1 VALUE _MASK Address of a word containing a_mask to specify the 
; 13 $2 : value of modified bits of the 
i Wy 
ce 
; 139 05] 
3 «6158 § 1 
Me | 
: 18) 20 | 
ig | 
: 183 
 % 65 1 
so 66 1 
, 7 67 1 
23% 68 1 


i 
i 
i 
i 
i 
1 
i 
i 
i 
' 
i 
' 
i 
i] 
i 
i 
1 
i 
i 
i 
i 
! 
default is a mask of all one bits, which results in 
1 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i] 
i 
i 
i 
i 
t 
i 
i 
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ere me eat 


LIBS_INVFILSPE File specification contained a node name or wildcard or 
did not reference a disk device 
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71 

if Set bits deny access and clear bits grant access. 

ti i IMPLICIT INPUTS: 

8 NONE 

8 i IMPLICIT OUTPUTS: 

0 NONE 

Be i COMPLETION STATUS: 

i 

86 LIBS$_INVARG Reguired argument omitted, or file-spec longer than 

87 255 characters 

88 

89 

90 

9 

9 

o 

9 

9 


a 
F 
' 
' 
' 
' 
' 
' 
1 
' 
' 
1 
' 
1 
! 
SS$_NORMAL Normal successful completion 
' 
1 
i 
' 
' 
1 
4 
‘ 
' 
{ 
1 
' 
i] 
' 
{ 
' 
1 
1 
1 
1 
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L T 
L T 
3 3 1 
.. 3 1 
. s 1 
: 4 1 
; 7 1 
: 1 1 
eee 1 
, 1 
s ¥ 1 
; 1 1 
3; (Y 1 
3 1 1 
ae 1 
: 3 1 
a | 0 1 
sy 0 1 
 % 0 1 
3 (J 0 1 
.% 0 1 
3 ¥ 0 1 
3; «6191 0 1 
Wh ¢ 0 1 LIBSANALYZE_SDESC errors 
. | 0 1 SPARSE errors 
3; 194 0 1 SSEARCH errors 
3; 6195 0 1 SASSIGN errors 
; 196 0 1 LIBSGET_EF errors 
3 197 0 1 $Q10 errors 
: 198 0 1 SDASSGN errors 
; 188 8 ! LIBSFREE_EF errors 
3 $04 0 1 ! SIDE EFFECTS: 
3 o 0 1 
; 2 0 1 File protection of file modified. 
3: 204 0 1 
: $0 0 1 le- 
3; 206 0 1 
3; 207 8 BEGIN 
3 $08 LOCAL 
; 209 0 FAB: $FAB_DECL, ! FAB for SPARSE 
3 $19 0 NAM: $NAM DEC ! NAM bagek for SPARSE 
3: eli 0 ESA_BUFFER: VECTORCNAMSC_MAXRSS ,BYTE { } Gxpended string area 
: sig 021 TEMP_DESC: BLOCK EDSC SK. 5 BLN Orth. ! Utility descriptor 
my 1 FPRO? BLOCK ATRSS_FPRO BYTE 
3 14 1 LO TELE ! File protection 
> 215 1 FIB: BLOCK FIGSC_LENGTH Bvted.  FIB 
3 16 021 FIB_DESC VECTORCE ! beser ptor for FIB 
: 217 1 ATR: BLOCKVECTORE2 8,BYTE), ! Attribute descriptors 
: 218 1 10SB: VECTORL4,WORDI, '! 1/0’ status block 
: 19 1 CHANNEL : WORD, ' Channel number 
3; 220 18 FN ! Event flag number 
> 221 1 LOCAL_ENABLE: WORD, i Actual or defaulted ENABLE_MASK 
3 § 0 LOCAL” VALUE: WORD, ' Actual or defaulted VALUE_MASK 
: 1 TATUS_1, ! Status return 
: 4 § aT ATU Ge ' Status return 
3 5 STATUS_5, ' Status return 
3 6 4 STATUS _4, ' Status return 
; 227 0225 STATUS_5, ! Status return 


Www 
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ILE_PROT = Set file protection 1B-56 Sep-1984 AX-11 Bliss-32 V 
ILE[PROT = Set file protection 12-Sep-1984 6: @¢: 3h VMSLIB.SR REIL 16F IL 
STATUS 3-8. ! §tatus return 
STATU ' Status return 
spas PINAL status; | Status return 
euILtin PROCESS; ! Block exited when processing complete 
ACTUALCOUNT ! Return number of arguments 
NULLPARAMETER; ! Test if parameter specified 


14 
j_cneure that the required parameter is present. 


IF ACTUALCOUNT() EQL 0 THEN RETURN LIBS_INVARG; 
14 
Initialize RMS structures required to do a SPARSE and $SEARCH. 


$FAB INIT (FAB=FAB, 
AM= 


SNAM_ INIT (NAM=NAM 
ESA=ESA_BUFFER 
ESS=HAMSE _MAXRSS) ; 


le 
i: Analyze the input descriptor and set up the FAB filename descriptor. 
3 1H ! block to use output registers 


G 
GISTER 


SANALYZE_SDESC_R2(.FILE_SPEC; R1, R2); 
1 THEN RETURN™.STATUS 1; 
5 THEN RETURN LiB$_INVARG; 


S 

5 
ee 
to use output registers 

_Parse the file specification to obtain the expanded name string. 
STATUS_2 = SPARSE (F AB=F AB) 

IF NOT~.STATUS_2 THEN RETURN . STATUS 23 

'¢ 


' Perform various error checks on the file specification. It m t have a 
i node name, must not contain wildcards, and must reference a disk Seotee. 


(, NAMCNAMS AND (NAMSM_WILDCARD OR NAM$M_NODE)) NEQ 0 OR 


FNB) 
nes MBLOCKCFABLFABSL DEV], BEVSV_RND; ,BYTE) ~ 


4.0-74 
PRO.B52;1 (3) 


LIt 
v0 


6 
t file protection 1b-5e -1984 02:26:57 AX-11 Bliss-32 V4.0-74 P 7 
t file protection 1 ~3007 1387 09:96:35 VMSLIB SRETLTBFILPRO B82: 1 7 (3) 


i If the string contained a wildcard or a node name, internal RMS resources 
' have been consumed by SPARSE. Execute another SPARSE using the same FAB 
on a null string to release these resources. 


FABCFABS$B_FNS] = 0; 
SPARSE (FAB=FAB) ; 
RETURN LIBS_INVFILSPE; 


T 

T 
1+ 
Perform a SSEARCH to get the fils identification of the file. 
STATUS_3 = SSEARCH(FAB=F AB) ; 


IF NOT .STATUS_3 THEN RETURN -STATUS_3; 


1+ 
Set up the FIB. 


BSM_NOREAD OR FIBSM_NOWRITE; 
NUMJ; 
SEQ]; 
RVNJ; 


F IBSC_LENGTH; 
FIB 


— i es | 
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Set up the attribute List. 


ATRCO, ATRSW_TYPE) 
ATRCO, ATRSW SIZE] 
ATRCO, R 
ATRL, 0,0,32,0) = 


+ 
Assign a channel to the device. 


ATRSC_FPRO; ! File protection 
PIR Se ar PROS 


: ! End of List 


AINA. ALAN AANA AIA AAI AAA AAI AA AWA 
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0 


TEMP_DESCCDSC$W_LENGTH] = .NAMCNAMSB DEV); 
TEMP” DESCCDSCSA_POINTER) = .NAMCNAMSC 
Ss * Aga bad 


bev); 
p ESC, CHAN=CHANNEL); 


TOS_4 = $AS D 
RETURN .STATUS_4; 


STATOS_ 

IF NOT .STATUS 
1+ 

! Allocate an event flag. 


dD 6 
PROT - Set file protection 16-Sep-1984 26:57 AX-11 Bliss-32 V4.0-74 
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SSSA" HBR 


4 


et ar ed 


= LIBSGET_EF CEFN); 
STATUS_ 


cuee 2 wm 


N 
SGN(CHAN=, CHANNEL) ; 
RN .STATUS_5; 


14+ 
! Beginning of block that is exited when processing is complete. FINAL_STATUS 
contains the status to be returned to caller. 


T 
T 
PROCESS: BEGIN 
1+ 
Evaluate the enable-mask. 
LOCAL_ENABLE = -1; ! Assume default 
IF NOT NULLPARAME TER (2) 

LOCAL_ENABLE = .(.ENABLE_MASK)<0,16>; 
14 

i] 
: i 
4 
4 
4 
4 
4 
4 
4 
4 
4 


i the enable-mask does not specify a che e to all bits of the existing 
le 


le protection, read attributes of the e. 


IF .LOCAL_ENABLE NEQ 65535 
THEN 


S = $Q] 
ONC=10$ are 


WN 9 DONO UESWN OO ODNAUE WN SO OODNAUEWN OO ONOUL wr 
vuvvUvUU 


C008 OO O98 NIN NIN SI NNN SISA AA AAA AAA AMI UII i 


NAL_STATUS THEN FINAL_STATUS = .10SBLO); 
.FINAL_STATUS THEN LEAVE PROCESS; 


'¢ 
: Evaluate the value-mask. 


IF NULLPARAMETER(3) 
SYSSSETDFPROT(O, LOCAL_VALUE) ! Read process default 
LOCAL_VALUE = .(.VALUE_MASK)<0,16>; 


+ 
! Evaluate the new protection value. 


AAAI AIA AAA AAA AAA AAA AAA ANA NWI AAW 
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'¢ 


BS 
BS 
7" 
: FPRO = (.FPRO AND NOT .LOCAL_ENABLE) OR (.LOCAL_VALUE AND .LOCAL_ENABLE); 
1 ' 
3 If requested, return the new protection value. 


04 
82 iv - NULLPARAME TER (4) 
(,ACTUAL_MASK)<0,16> = .FPRO; 
0 


4 
Rewrite the file protection. 


FINAL_STATUS = $Q10W( 
FONC=10$_MODIFY, 
CHAN CHANEL 
EFN=.E 
fosBziosé 
Pi=t 18.0 Desc, 


=A 
IF .FINAL STATUS THEN FINAL_STATUS = .10SBC0); 
i NOT .FINAL eotarus My LEAVE PROCESS; 

'¢ 


vuvvUvTU 


L 
L 
408 [| 
0 
0 
" 
) 
0 
0 
0 
0 
0 
0 


NAL_ status = SSS$_N L; 


i End of block that is exited when processing is complete. FINAL_STATUS 
t contains the status that is to be returned to caller. 
END; ! of block PROCESS 


1+ 
j _Desenten the channel and deallocate the event flag. 
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TATUS_6 = rite ae CHANNEL) ; 
TATUS_7 = LIBSFREE_EF(EFN); 

/ NOT”.STATUS_7 THEN RETUR mY alt 
+ 


Sah ele ee el ee ee ee ek ek ek ee ek ek ee ee et et et et et ak td et tl 
on 


Www 
~s 


440 NOT .STATUS ~6 THEN RETURN > STATUS -6; 


FRRFF 


Return the status. 


Be Se Se Ge Se Se Se Se Ge Ge Fe Ge Se Fe Ge Se Fe Se Se Ge Be Se Se Se Se Be Se Se Se Se Se Se Se Se Ss Se Se Se Se Se Se Se ee Se Sees te teas 


SoOooooooo 


at at a 


RETURN .FINAL_STATUS; 
END; ! End of routine LIBSSET_FILE_PROT 
-TITLE LIBSSET_FILE_PROT LIBSSET FILE, PROT = Set file 
rotect 
LIDENT \V04-000\ : 


~-EXTRN LIBSANALYZE_SDESC_R2 
-EXTRN LIBSFREE_EF, LIBSGET_EF 
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2C 000 

00 
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90 00033 
9E BRR, 
2C 00030 
0044 
BO Shee 
BE 0004 
9E 0005 
DO 00059 
16 0005 
E9 0006 
D1 00066 
1B 0006D 
He 
90 0077 
DO 00078 
oF 4 44 
FB 0008 
E9 0008 
B83 00088 
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AX=11 BL isg-32 
VMSLIB.SRCILIBFILP 
SSETDFPROT, LIB$_INVARG 
$ INVFILSPE, SYSSPARSE 
SSEARCH, SYSS$ASSIGN 
SDASSGN, SYS$Q10W 


-LIBSCODE,NOWRT, SHR, PIC,2 


LIBSSET FILE_PROT, Save R2,R3,R4,R5,R6,R7,- 

RB,RO,RTO,RIT 

SYS$afow, RS 

SYSSDASSGN, R7 

SYSSPARSE, R6 
(SP), SP 


#0, (SP), #0, #80, SRMS_PTR 
#20483, S$RMS_PTR 

#2, S$RMS_PTRT22 

#2, $RMS-PTR+31 


NAM, $RMS_PTR+40 
#0,'(SP),-#0, #96, SRMS_PTR 


#24578, SRMS_PTR 

#1, SRMS_PTRT1 
ESA_BUFFER, $RMS_PTR+12 
FILE SPEC, R 
LIBSANALYZE_SDESC_R2 
STATUS_1, 

#255 


IB$_INVARG, RO 


NR Creo 
— 7 
S 
~_ 

w 


Ste oe 


YSSPARSE 
feS_INVFILSPE, RO 


AB 
#1, SYSSSEARCH 

STATUS 3, 6$ 

#O, (SP); #0, #64, FIB 
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vitae CIBSSET“FILE“PROT - Set file protection eae ri Ha Ge Oe Page 4} 
18 AE AE 9 E MOVAB FPRO ATR+4 ; $$" 
if AF pk 3 CLRL Ref : § AB: 
70 AE AD 8 E MOVZBW AANe 7, TEMP_DESC : 3 ctl 
74 AE 4 Ad p ED MOVL NANS6B, TEMP~DESC+4 ; at 
7E 7C OOOF CLRO : 0335 CTI 
08 AE i Fa PUSHAB NNEL ; DFI 
C AE 9F OOOF PUSHAB TEP DESC : Fit 
000000006 99 04 FB FA CALLS # SYSSAS S$16N : HO} 
1 0 i 1 6$: BLBS STATUS _4, + 0336 i 
08 AE 9F 00105 7$: PUSHAB + 034 1A 
000000006 Q f FB 001 A CALLS a LIBSGET EF ; . 1A\ 
Q DO 0010F MOVL Tus 5 F TA\ 
9 ‘ 11 BLBS us” : 0343 1A\ 
7 6F C 0011 MOVZWL CHANNEL *=(SP) + 0346 1M 
4 FB oi CALLS SYS$DAS3GN : JSt 
0000 31 00118 BRW : 0347 Lit 
5 01 AF oie 8$: MNEGW #1, LOCAL_ENABLE 3 0361 Lit 
0 6 91 001 CMPB sé AP),, 2 : 0362 OP’ 
1F 00124 BLSSU F 
08 AC D3 0126 TSTL B<AP) : 
04 13 00129 BEQL $ ; 
52 08 BC BO 0012B MOVW § @ENABLE_MASK, LOCAL ENABLE + 0364 
FFFF 86 aBF 2 Bi 43 F 9$: CMPW LOCAL_ENABLE, #65535 3 0371 
A 13 001 BEQL 10$ ; 
E D4 O01 CLRL = = (SP) + 0380 
18 AE 9F 001 PUSHAB ATR ; 
7E 7C 0013B CLRQ = =(SP) ; 
7E D4 0013p CLRL = = (SP) ; 
38 «AE «OOF 0013F PUSHAB FIB DESC ; 
7E 7C 00142 CLRQ 0s = (SP : 
2c «AE OOF 00144 PUSHAB 10SB : 
3 pp 0147 PUSHL ; 
7E 8 AE 3C 9149 MOVZWL CHANNEL . -(SP) ; 
4 AE DD 00140 PUSHL : 
8 o¢ FB 0130 CALLS fie. : 
53 9 dO 001 MOVL RO, Fina *StATUS : 
7¢ 4 E9 0156 BLBC = FINAL_STATUS, 15$ + 0381 
53 0c AE C 00159 MOVZWL 10SB,~ FINAL eStats : 
75 5 E9 01 BLBC —«~FINAL_STA 15$ : 0382 
03 6¢ 100160 10$:  CMPB (AP), a : 0389 
05 1F 0016 BLSSU 118 : 
Oc ac 05 16 TSTL 12¢AP) ; 
OE 12 001 BNEG = 12$ ; 
04 AE 9F OO16A 118 PUSHAB LOCAL_VALUE : 0391 
7E D4 00160 CLRL = = (SP) : 
000000006 00 0 Fe 16 CALLS We, SYS$SETDFPROT : 
04 AE 0c BC B0 198 128 MOVW  §@VALUE_MASK, LOCAL_VALUE > 0393 
1 6C AE 3C 00170 13$ MOVZWL FPRO, R : 0399 
0 3 € 00181 MOVZWL LOCAL_ENABLE, RO ; 
1 A 001 BICL2 3 
0 04 AE 3C 00187 MOV2WL LOCAL _VALUE RO, F 
4 ¢ 1 MOVZWL LOCAL~ENABLE, : 
4 D2 001 F MCOM Rt, ke : 
i 4 CA 001 BICL 4, RO ; 
6C AE 1 A9 00194 BISW Ri. RO, FPRO : 


LIBSSET_FILE_PR LIBS 
voe-000 LIBS 
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; Routine Size: Routine Base: 


rotection 
rotection 
gc 91 
10 AC 0 
08 i3 
6C AE B 
7E D4 
18 AE oF 
7E 7C 
7E D4 
38 =6AE oF 
, 
2c af +4 
¢8 AE Re 
4 AE pe 6 
a 28 
0c a 5? 5 
31 60 00 
ak 
8 8 8 
08 AE 99F 
a) 8 
33 58 88 
04 00 
53 dO 00 
04 00 
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-32 Ye eer ee 
VMSLIB. LIBFILPRO.B52;1 


OYSMDBOBsM—WamMmrnw:1 TM) i Pir NOW 


TU 
TATUS_6, 
STATUS_6, RO 


FINAL_STATUS, RO 


LIBSSET_FILE_PR LIBSSET_FILE_PROT = Set file protection 1b-se Sep-1984 AX-11 Bliss-32 V4.0-74 Page 13 sy 

Oe e000 mittites “FILE: “PROT = Set file protect on at 7 96: go: 35 VMSLIB.SRC Libr \ePRo 682; 1 ° (4) 
449 Bee$ 1 END ! End of module LIBSSET_FILE_PROT 
450 447 0 ELUDOM 

H PSECT SUMMARY 

: Name Bytes Attributes 

: _LIBSCODE 502 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

3 Library Statistics 

ieee eee ee ee a Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28: CSYSLIBILIB.L32;1 18619 89 0 1000 00:01.9 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS#L1S8:L IBF ILPRO/OBJ=0B/$:L IGF ILPRO MSRC$:LIBF ILPRO/UPDATE=(ENH$:LIBFILPRO 

3; Size: 502 code + 0 data bytes 

3; Run Time: 0: 12-9 

3; Elapsed Time 6.3 

3 Lines/CPU Min: 1938 

3; Lexemes/CPU-Min: 241 

; 7,0 Used: 204 pages 

3; Compilation Complete 
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GIT 
NFI 


I 
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DI 
CO 
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